home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / patch / phonepak_25_1.lha / PhonePak_2.5InstallPPak < prev    next >
Encoding:
Text File  |  1994-06-01  |  13.0 KB  |  331 lines
  1. ; PhonePak VFX Installation script
  2. ; $VER: PhonePak Install 2.5 (01-Jun-94)
  3. ; 
  4.  
  5. ; Written for use with Commodore's Installer.
  6.  
  7. (set phonepak "PhonePak_2.5:")
  8. (set messages1 "Messages1:")
  9. (set messages2 "Messages2:")
  10. (set ppak "PPAK:")
  11.  
  12. ; ====================
  13. ; Install the libraries, devices, and other system files...
  14. ;
  15.  
  16. (if (askbool (prompt "Is this an A3000/A3000T with its original Buster chip?")
  17.              (choices "Yes" "No")
  18.              (default "No")
  19.              (help "The A3000 and A3000T have a defect which prevents DMA "
  20.                    "from functioning properly unless the original Buster "
  21.                    "chip is updated to revision 11 or greater.  If you have "
  22.                    "the original Buster chip, a different version of "
  23.                    "PhonePak.library will be installed and you must have a "
  24.                    "Zorro II memory board in your system in order for "
  25.                    "PhonePak to work properly.\n\n"))
  26.     (
  27.       (copyfiles (source (tackon phonepak "libs/PPak3000.library"))
  28.                  (dest "LIBS:")
  29.                  (confirm)
  30.                  (newname "PhonePak.library")
  31.                  (prompt "Shall I install the PhonePak.library into your LIBS: "
  32.                      "drawer?")
  33.                  (help "PhonePak.library is a collection of commonly used routines "
  34.                      "required by the PhonePak VFX software.\n\n"
  35.                      @copylib-help))
  36.     )
  37.     (
  38.       (copyfiles (source (tackon phonepak "libs/PPak2000.library"))
  39.                  (dest "LIBS:")
  40.                  (confirm)
  41.                  (newname "PhonePak.library")
  42.                  (prompt "Shall I install the PhonePak.library into your LIBS: "
  43.                      "drawer?")
  44.                  (help "PhonePak.library is a collection of commonly used routines "
  45.                      "required by the PhonePak VFX software.\n\n"
  46.                      @copylib-help))
  47.     ))
  48.  
  49. (copylib (source (tackon phonepak "devs/PhonePak.device"))
  50.          (dest "DEVS:")
  51.          (confirm)
  52.          (prompt "Shall I install the PhonePak.device into your DEVS: drawer?")
  53.          (help "PhonePak.device controls the PhonePak VFX hardware\n\n"
  54.                @copylib-help))
  55.  
  56. (copyfiles (source (tackon phonepak "devs/Printers/PPakFax"))
  57.            (dest "DEVS:Printers")
  58.            (confirm)
  59.            (prompt "Shall I install the PPakFax printer driver into your "
  60.                    "DEVS:Printers drawer?")
  61.            (help "The PPakFax printer driver allows you to fax "
  62.                  "directly from almost any standard Amiga application. To "
  63.                  "enable this, the printer driver must be placed in the "
  64.                  "DEVS:Printers drawer.\n\n"
  65.                  @copylib-help))
  66.  
  67. (copyfiles (source (tackon phonepak "fonts"))
  68.            (dest "FONTS:")
  69.            (fonts)
  70.            (all)
  71.            (confirm)
  72.            (prompt "Shall I install the fonts required by PhonePak VFX?")
  73.            (help "These fonts are provided for the text to fax conversion "
  74.                  "performed by the PhonePak VFX software. PhonePak.font is "
  75.                  "the default font used, and LGMono.font is an alternate "
  76.                  "fixed width font provided for your convenience.\n\n"
  77.                  @copyfiles-help))
  78.  
  79. (copyfiles (source (tackon phonepak "rexx"))
  80.            (dest "REXX:")
  81.            (all)
  82.            (confirm)
  83.            (prompt "Shall I install the PhonePak ARexx scripts?")
  84.            (help "These scripts provide useful examples of how to interact "
  85.                  "with LineMan using the ARexx programming language.  "
  86.                  "Message Forwarding uses the Forwarding.ppak script "
  87.                  "by default.\n\n"
  88.                  @copyfiles-help))
  89.  
  90. (set os_ver (/ (getversion) $0000FFFF))
  91. (if (>= os_ver 36)
  92.     (
  93.       (copyfiles (source (tackon phonepak "Prefs/Presets/PPakFax.pre"))
  94.                  (dest "SYS:Prefs/Presets")
  95.                  (confirm)
  96.                  (prompt "Shall I copy the PPakFax.pre presets file to the "
  97.                          "SYS:Prefs/Presets drawer?\n\n")
  98.                  (help "The PPakFax.pre file allows you to quickly set Prefs to "
  99.                        "use the PPakFax printer driver.\n\n"
  100.                        @copyfiles-help))
  101.       (copylib (source (tackon phonepak "c/SetPatchWTAM"))
  102.                (dest "C:")
  103.                (confirm)
  104.                (prompt "Shall I copy the SetPatchWTAM program to your C: directory?")
  105.                (help "The SetPatchWTAM program is a patch supplied by Commodore to "
  106.                      "fix a problem with font aspect ratios under Workbench 2.0.\n\n"
  107.                      @copylib-help))
  108.     )
  109. )
  110.  
  111. (copylib (source (tackon phonepak "libs/req.library"))
  112.          (dest "LIBS:")
  113.          (confirm)
  114.          (prompt "Shall I install req.library into your LIBS: drawer?")
  115.          (help "req.library provides some of the requesters used by "
  116.                "the PhonePak VFX software.\n\n"
  117.                @copylib-help))
  118.  
  119. (if (NOT (exists "S:PhonePak.config"))
  120.     (
  121.       (copyfiles (source (tackon phonepak "s/PhonePak.config"))
  122.                  (dest "S:"))
  123.     ))
  124.  
  125. ; ====================
  126. ; All libraries/system files are installed. Now install the software.
  127. ; 
  128.  
  129. (set target (tackon @default-dest "PhonePak"))
  130.  
  131. (if (askbool (prompt "I am going to install the PhonePak VFX software and "
  132.                      "tools in:\n\n"
  133.                      target
  134.                      "\n\n"
  135.                      "Is this OK?")
  136.              (help "If this directory is OK, the directory will be created "
  137.                    "and the software will be installed.\n\n")
  138.              (choices "Yes" "No")
  139.              (default "Yes"))
  140.    (
  141.       (makedir target (infos))
  142.    )
  143.    (
  144.       (set target (askdir (prompt "In which directory should the PhonePak "
  145.                                   "software and tools be installed?")
  146.                                   (help @askdir-help)
  147.                                   (default @default-dest)))
  148.    ))
  149.  
  150. (makeassign "PPAK" target)
  151.  
  152. (copyfiles (source (tackon phonepak "c/LZ"))
  153.            (dest "RAM:")
  154.            (nogauge))
  155.  
  156. (working "Decompressing and installing PhonePak...")
  157. (run ("RAM:LZ -N x %s %s" (tackon phonepak "PhonePak.LHA")
  158.                            ppak))
  159.  
  160. (working "Decompressing and installing LineMan...")
  161. (run ("RAM:LZ -N x %s %s" (tackon phonepak "LineMan.LHA")
  162.                            ppak))
  163.  
  164. (working "Decompressing and installing PPakTools...")
  165. (run ("RAM:LZ -N x %s %s" (tackon phonepak "PPakTools.LHA")
  166.                            ppak))
  167.  
  168. ; === Copy databases if they don't already exist
  169.  
  170. (if (NOT (exists (tackon target "Demo.dat")))
  171.     (
  172.         (copyfiles (source phonepak)
  173.             (dest target)
  174.             (pattern "Demo.#?"))
  175.     ))
  176.  
  177. (if (NOT (exists (tackon target "AreaCodes.dat")))
  178.     (
  179.         (copyfiles (source phonepak)
  180.             (dest target)
  181.             (pattern "AreaCodes.#?"))
  182.     ))
  183.     
  184. ; === Install the 1.3 icons if the OS version is < 36.xx
  185.  
  186. (if (< os_ver 36)
  187.    (
  188.       (copyfiles (source (tackon phonepak "1.3_Icons"))
  189.                  (dest target)
  190.                  (all)
  191.                  (infos))
  192.    ))
  193.  
  194. ; === Install the default system messages from messages disk one
  195.  
  196. (set master (tackon target "(Master)"))
  197.  
  198. (if (askbool (prompt "Are you upgrading from a previous version of PhonePak?")
  199.              (help "If you are upgrading from a previous version of "
  200.                    "PhonePak, you must specify the directory where your "
  201.                    "system messages are located.  Only new system "
  202.                    "messages will be copied.")
  203.              (choices "Yes" "No")
  204.              (default "No"))
  205.    (
  206.       (set flag 1)
  207.       (set master (askdir (prompt "In which directory should new "
  208.                                   "system messages be installed?")
  209.                                   (help @askdir-help)
  210.                                   (default master)))
  211.    )
  212.    (
  213.       (set flag 0)
  214.       (makedir master)
  215.    ))
  216.  
  217. (makeassign "SYSMSG" master)
  218.  
  219. (if flag 0
  220.   (
  221.     (askdisk (dest "Messages1")
  222.          (prompt "Please insert the Messages1 disk in any drive")
  223.          (help "The Messages1 disk contains default system messages.\n\n"
  224.          @askdisk-help))
  225.  
  226.     (working "Decompressing and installing default system messages...")
  227.     (run ("RAM:LZ -m -N x %s %s/" (tackon messages1 "Messages.LHA")master))
  228.   )
  229. )
  230.  
  231. ; === Install the default system messages from messages disk two
  232.  
  233. (askdisk (dest "Messages2")
  234.          (prompt "Please insert the Messages2 disk in any drive")
  235.          (help "The Messages2 disk contains default system messages.\n\n"
  236.          @askdisk-help))
  237.  
  238. (if flag 0
  239.     (run ("RAM:LZ -m -N x %s %s/" (tackon messages2 "AuxMsgs.LHA") master))
  240. )
  241.  
  242. (run ("RAM:LZ -m -N x %s %s/" (tackon messages2 "Messages2.LHA") master))
  243.  
  244. (delete "RAM:LZ")
  245.  
  246. ; === Copy the documentation update files 
  247.  
  248. (copyfiles (source (tackon messages2 "Docs"))
  249.            (dest (tackon target "Docs"))
  250.            (all)
  251.            (infos)
  252.            (confirm)
  253.            (prompt "Which PhonePak 2.4 documentation files shall I install?")
  254.            (help "These files cover changes made to the PhonePak software "
  255.                  "since the version 1 manual was printed.  The files "
  256.                  "are available in both raw ASCII and formatted Final Copy II "
  257.                  "formats.\n\n"
  258.                  @copyfiles-help))
  259.  
  260. ; === Setup the default-dest so the user is informed where PhonePak was installed.
  261.  
  262. (set @default-dest target)
  263.  
  264. ; === Modify startup sequence.
  265.  
  266. (if (>= os_ver 36)
  267.    (
  268.     (onerror (message "Sorry, but either your startup-sequence was missing, "
  269.                       "or it is too non-standard for the Installer program to "
  270.                       "understand. You will have to make these modifications "
  271.                       "by hand.\n\n"
  272.                       "To patch the 2.0 font aspect ratio bug, add the "
  273.                       "following line to your S:User-Startup or "
  274.                       "Startup-Sequence:\n\n"
  275.                       "SetPatchWTAM >NIL:\n")
  276.              (message "To have PPAK: assigned to the directory in which "
  277.                       "PhonePak is installed, add the following line to your "
  278.                       "S:User-Startup or Startup-Sequence:\n\n"
  279.                       ("Assign PPAK: %s\n\n" target)
  280.                       "Note: This assignment is only required for the default "
  281.                       "system setup.")
  282.              (message "To have SYSMSG: assigned to the directory containing "
  283.                       "your system messages, add the following line to your "
  284.                       "S:User-Startup or Startup-Sequence:\n\n"
  285.                       ("Assign SYSMSG: %s\n\n" master))
  286.              (exit))
  287.     (startup "PhonePak VFX"
  288.              (prompt "Shall I modify your startup sequence to add the PPAK: "
  289.                      "and SYSMSG: assigns and to automatically execute SetPatchWTAM?")
  290.              (help "This will add the following lines to your S:User-Startup "
  291.                    "file:\n\n"
  292.                    "SetPatchWTAM >NIL:\n"
  293.                    ("Assign PPAK: %s\n" target)
  294.                    ("Assign SYSMSG: %s\n\n" master)
  295.                    "The PPAK: assign is only used by the default system setup. "
  296.                    "The SYSMSG: assign provides a path to your system "
  297.                    "messages, making the creation of multiple systems easier.\n\n"
  298.                    @startup-help)
  299.              (command ("SetPatchWTAM >NIL:\n"))
  300.              (command ("Assign PPAK: %s\n" target))
  301.              (command ("Assign SYSMSG: %s" master)))
  302.    )
  303.    (
  304.     (onerror (message "Sorry, but either your startup-sequence was missing, "
  305.                       "or it is too non-standard for the Installer program to "
  306.                       "understand. You will have to make this modification "
  307.                       "by hand.\n\n"
  308.                       "To have PPAK: assigned to the directory in which "
  309.                       "PhonePak is installed, add the following line to your "
  310.                       "S:User-Startup or Startup-Sequence:\n\n"
  311.                       ("Assign PPAK: %s\n\n" target)
  312.                       "Note: This assignment is only required for the default "
  313.                       "system setup.")
  314.              (message "To have SYSMSG: assigned to the directory containing "
  315.                       "your system messages, add the following line to your "
  316.                       "S:User-Startup or Startup-Sequence:\n\n"
  317.                       ("Assign SYSMSG: %s\n\n" master))
  318.              (exit))
  319.     (startup "PhonePak VFX"
  320.              (prompt "Shall I modify your startup sequence to add the PPAK: and SYSMSG: assigns?")
  321.              (help "This will add the following lines to your S:User-Startup file:\n\n"
  322.                    ("Assign PPAK: %s\n" target)
  323.                    ("Assign SYSMSG: %s\n\n" master)
  324.                    "The PPAK: assign is only used by the default system setup. "
  325.                    "The SYSMSG: assign provides a path to your system "
  326.                    "messages, making the creation of multiple systems easier.\n\n"
  327.                    @startup-help)
  328.              (command ("Assign PPAK: %s\n" target))
  329.              (command ("Assign SYSMSG: %s" master)))
  330.    ))
  331.